Sample Code - OpenReport Method

This sample code shows the use of the OpenReport Method (Application Object). Modify the following sample code to fit your needs.

Dim crystlApplication As CRPEAuto.Application
Dim crystlReport As CRPEAuto.Report

Function OpenReport(ReportFileName As String) As Object

Set crystlApplication = CreateObject("Crystal.CRPE.Application")
Set crystlReport = crystlApplication.OpenReport(ReportFileName)

End Function

Private Sub Command1_Click()

OpenReport ("c:\crw\reports\xtreme\wwsales.rpt")

End Sub


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com